home *** CD-ROM | disk | FTP | other *** search
/ Freelog 22 / freelog 22.iso / Prog / Pratique / Fic.cpp < prev    next >
Encoding:
C/C++ Source or Header  |  2000-11-17  |  1.2 KB  |  37 lines
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  4.  
  5. #include "Fic.h"
  6. //---------------------------------------------------------------------------
  7. #pragma package(smart_init)
  8. #pragma resource "*.dfm"
  9. TForm1 *Form1;
  10. //---------------------------------------------------------------------------
  11. __fastcall TForm1::TForm1(TComponent* Owner)
  12.     : TForm(Owner)
  13. {
  14. Memo1->Clear();
  15. DirectoryListBox1->Directory="c:\\";
  16. }
  17. //---------------------------------------------------------------------------
  18.  
  19. void __fastcall TForm1::DriveComboBox1Change(TObject *Sender)
  20. {
  21. DirectoryListBox1->Drive=DriveComboBox1->Drive;    
  22. }
  23. //---------------------------------------------------------------------------
  24.  
  25. void __fastcall TForm1::DirectoryListBox1Change(TObject *Sender)
  26. {
  27. FileListBox1->Directory=DirectoryListBox1->Directory;    
  28. }
  29. //---------------------------------------------------------------------------
  30.  
  31. void __fastcall TForm1::ValidationClick(TObject *Sender)
  32. {
  33. Memo1->Lines->LoadFromFile(FileListBox1->FileName);   
  34. }
  35. //---------------------------------------------------------------------------
  36.  
  37.